home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / prodpack.zip / DB4PPSRC.EXE / DLEDVAL.PRG < prev    next >
Text File  |  1993-05-04  |  380b  |  17 lines
  1. FUNCTION DLEdVal
  2. PARAMETER pcField
  3.   PRIVATE lResult
  4.   lResult = .T.
  5.   IF TYPE( "aClkObj[1,1]" ) = "N"
  6.     DO CASE
  7.       CASE pcField = "EF_FLEN_1"
  8.         IF ef_flen_1 <= 0 .OR. ef_flen_1 >=77
  9.           DO _Err_Box WITH [Field length must be between 1 and 76]
  10.           lResult = .F.
  11.         ENDIF
  12.     ENDCASE
  13.   ENDIF
  14. RETURN lResult
  15. *-- EOF: DLEdVal( pcField )
  16.  
  17.